home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00140.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  671 b   |  40 lines
  1. on mouseUp
  2.   global t, d
  3.   puppetSound(7, 0)
  4.   puppetSound(5, 0)
  5.   puppetSound(6, 0)
  6.   puppetSound(3, 0)
  7.   puppetSound(2, 0)
  8.   mixdown()
  9.   put " " into field "advert"
  10.   puppetSound(1, 0)
  11.   puppetSprite(1, 0)
  12.   puppetSprite(2, 0)
  13.   puppetSprite(3, 0)
  14.   puppetSprite(4, 0)
  15.   repeat with t = 1 to 10000
  16.     nothing()
  17.   end repeat
  18.   set d to random(6)
  19.   if d = 1 then
  20.     puppetSound(1, 202)
  21.   end if
  22.   if d = 2 then
  23.     puppetSound(1, 205)
  24.   end if
  25.   if d = 3 then
  26.     puppetSound(1, 211)
  27.   end if
  28.   if d = 4 then
  29.     puppetSound(1, 213)
  30.   end if
  31.   if d = 5 then
  32.     puppetSound(1, 241)
  33.   end if
  34.   if d = 6 then
  35.     puppetSound(1, 242)
  36.   end if
  37.   unLoadCast()
  38.   go("a")
  39. end
  40.